
; Machine Gun Class
; you better duck


(load "weapon.scm")

(define machine-gun%
  (class weapon%
    
    ; PHYSICS-OBJECT%
    (inherit-field collision-occured)
    ; WEAPON%
    (inherit inflict-damage)
    
    ; Update
    (define/override (update)
      (when collision-occured
        (inflict-damage))
      (not collision-occured))
    
    ; Constructor/Initialization
    (super-new [bounce #f] [weapon-name "machine gun"] [weapon-speed #i700] [clip-size 100] [fire-rate #i1/30] [reload-time #i8] [damage 2])))



